program SQLTest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Activex,
  URunSQL in 'URunSQL.pas',
  UAppSet in 'UAppSet.pas';

var
  RunFQL: TRunSQL;
  bResult: Boolean;
begin
  if ParamCount = 1 then
  begin
    CoInitialize(nil);
    RunFQL := TRunSQL.Create;
    RunFQL.SQLPath := ParamStr(1);
    bResult := RunFQL.DoTest;
    RunFQL.Free;
  end;
  if bResult then
    Halt(0)
  else
    halt(1);
end.

